約 2,022,441 件
https://w.atwiki.jp/excel-vba/pages/12.html
コメントプラグイン @wikiのwikiモードでは #comment() と入力することでコメントフォームを簡単に作成することができます。 詳しくはこちらをご覧ください。 ＝＞http //atwiki.jp/guide/17_60_ja.html たとえば、#comment() と入力すると以下のように表示されます。 名前 コメント
https://w.atwiki.jp/kojiro/pages/17.html
相対的な位置 MATCH(検査値,検査範囲,照合の型) 検査値 探すもの。数値、文字列、論理値、セル参照です。文字列の場合は""（ダブルコーテーション）で囲みます。 検査範囲 検査値を探しに行くセル範囲・配列です。 照合の型（1,0,-1） 1 を指定すると検査値以下の最大の値を検索します。ただし、検査範囲が昇順で並べ替えられていなければなりません。 0 を指定すると完全一致する値のみ検索します。 －1 を指定すると検査値以上の最小の値を検索します。ただし、検査範囲が降順で並べ替えられていなければなりません。 例（左からA、B、C列とします。上から1、2、3行とします） 氏名 年齢 性別 ランスロット 38 男 カノープス 46 男 ギルバルド 51 男 ユーリア 41 女 =match(51,B2 B5,0)=3 B2 B5の範囲内で51（検査値）は3 行目です。 単体で使っても威力を発揮しない関数。戻り値が相対的な位置なのもわかりにくい。index関数やマクロ内で使って検査値を流動的に変えてやると、lookup関数ではわからないありがたみも実感できるはず。 照合の型は3 種類あるが、0 以外は不要。とあるセル範囲内の、ただ１つの値を探すために使うことの方が多いはず。 シートにこの関数を大量に書き、自動計算をonにしていると処理にむちゃくちゃ時間がかかる時がある。注意。
https://w.atwiki.jp/kojiro/pages/11.html
ADDRESS ワークシート上のセルの参照を文字列として返します。 AREAS 指定した範囲に含まれる領域の個数を返します。 CHOOSE 引数リストの値の中から特定の値を 1 つ選択します。 COLUMN セル参照の列番号を返します。 COLUMNS セル参照の列数を返します。 HLOOKUP 配列の上端行で特定の値を検索し、指定したセルの値を返します。 HYPERLINK ネットワーク サーバー、イントラネット、またはインターネット上にあるドキュメントを開くショートカットまたはジャンプを作成します。 INDEX セル参照または配列から、指定したセルの参照または値を返します。 INDIRECT 指定した文字列により参照されるセルの値を返します。 LOOKUP 1 行または 1 列で構成されるセル範囲、または配列に含まれる値を返します。 MATCH 参照または配列に含まれる値を検索し、条件に一致する要素の相対的な位置を表す数値を返します。 OFFSET 指定した行数と列数だけシフトした位置にあるセルまたはセル範囲の参照を返します。 ROW 指定したセル参照の行番号を返します。 ROWS 指定したセル参照の行数を返します。 TRANSPOSE 配列の縦方向と横方向のセル範囲の変換を行います。 VLOOKUP 配列の左端の列で特定の値を検索し、指定したセルの値を返します。
https://w.atwiki.jp/excel-vba/pages/9.html
動画(youtube) @wikiのwikiモードでは #video(動画のURL) と入力することで、動画を貼り付けることが出来ます。 詳しくはこちらをご覧ください。 ＝＞http //atwiki.jp/guide/17_209_ja.html また動画のURLはYoutubeのURLをご利用ください。 ＝＞http //www.youtube.com/ たとえば、#video(http //youtube.com/watch?v=kTV1CcS53JQ)と入力すると以下のように表示されます。
https://w.atwiki.jp/aochdbc/pages/107.html
秋田犬 vs Excellent hills Pettan マップ：遊牧 日時：2017/1/21 23 30 ゲーム時間：29 34 勝利チーム：秋田犬 チーム名 プレイヤー名 文明 文明 プレイヤー名 チーム名 秋田犬○ Balalaika arata Excellent hills Pettan× sakko moma Shibainu yosimi リプレイ解析 解析結果
https://w.atwiki.jp/wasururu/pages/6.html
更新履歴 @wikiのwikiモードでは #recent(数字) と入力することで、wikiのページ更新履歴を表示することができます。 詳しくはこちらをご覧ください。 ＝＞http //atwiki.jp/guide/17_117_ja.html たとえば、#recent(20)と入力すると以下のように表示されます。 取得中です。
https://w.atwiki.jp/kojiro/pages/44.html
文字列中の指定された文字を他の文字に置き換えた文字列 SUBSTITUTE(文字列,検索文字列,置換文字列,{置換対象}) 文字列 置き換える文字列を含む文字列。 検索文字列 置き換える文字列を指定します。 置換文字列} 検索文字列と置き換える文字列を指定します。 {置換対象} 文字列に含まれるどの検索文字列を置換文字列}に置き換えるか指定します。 省略すると全ての検索文字列が対象になります。 例 =substitute("今日もいい天気","今日も","")="いい天気" =substitute("今日もいい天気","今日も","明日は")="明日はいい天気" =substitute("今日もいい天気","い","え",2)="今日もいえ天気" REPLACE 関数、REPLACEB 関数との違いは置換したい文字列をずばり指定できること。
https://w.atwiki.jp/ac1226/pages/16.html
そのままExp Private Sub cmdExp_Click() If MsgBox("表示データを出力しますか？", vbYesNo + vbQuestion) = vbYes Then If IsNull(Me.txtSearch) And IsNull(Me.txtDateFrom) And IsNull(Me.txtDateTo) Then CurrentDb.QueryDefs("出力").[[SQL]] = "SELECT 項目A,項目B,項目C" _ "項目D,項目E FROM (" Me.RecordSource ") ORDER BY [項目A]" Else CurrentDb.QueryDefs("出力").SQL = "SELECT 項目A,項目B,項目C" _ "項目D,項目E FROM (" Me.RecordSource ") WHERE " Me.Filter " ORDER BY [項目A]" End If DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "出力", _ "C \アドレス\抽出.xls", True MsgBox "出力完了！" Chr(13) "「抽出.xls」をご確認ください。" Else Exit Sub End If End Sub そのままExp2 Private Sub cmbExl_Click() Dim exName As String Dim exPass As String '[[ユーザー関数]]UserName()でログインユーザー名取得 exName = Format(Date, "yymmdd") "_ " UserName() "_AAA.xls" exPass = CurrentProject.Path "\" exName If MsgBox("表示データを出力しますか？", vbYesNo + vbQuestion) = vbYes Then 'select内でIIFを使う CurrentDb.QueryDefs("出力").SQL = "SELECT 項目A,項目Bname AS 項目B," _ "項目Cname AS 項目C,IIf(項目Da=5,項目D2,項目D1) AS 項目D," _ "項目E FROM (" Me.RecordSource ") WHERE " Me.Filter " ORDER BY [項目A]" DoCmd.TransferSpreadsheet acExport, _ acSpreadsheetTypeExcel9, "出力", exPass, True MsgBox "出力完了！" Chr(13) "「" exName "」をご確認ください。" Else Exit Sub End If End Sub シート指定 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "table", _ MyPath, False, "Sheet1!A A" 結合されたもの CurrentDb.QueryDefs("出力").SQL = "SELECT t_1.項目A,t_1.項目B,t_1.項目C, " _ "t_2.A2,t_1.A2,t_3.B2," _ "t_4-1.C2,t_4-2.D2 " _ "FROM ((( t_1 LEFT JOIN t_2 ON t_1.A1 = t_2.A1) " _ "LEFT JOIN t_3 ON t_1.項目D = t_3.B1) LEFT JOIN t_4-1 ON t_1.項目E1 = t_4-1.C1) " _ "LEFT JOIN t_4-2 ON t_1.項目E2 = t_4-2.D1 ORDER BY [項目A]" CurrentDb.QueryDefs("出力").SQL = "SELECT t_1.項目A,t_1.項目B,t_1.項目C, " _ "t_2.A2,t_1.A2,t_3.B2," _ "t_4-1.C2,t_4-2.D2 " _ "FROM ((( t_1 LEFT JOIN t_2 ON t_1.A1 = t_2.A1) " _ "LEFT JOIN t_3 ON t_1.項目D = t_3.B1) LEFT JOIN t_4-1 ON t_1.項目E1 = t_4-1.C1) " _ "LEFT JOIN t_4-2 ON t_1.項目E2 = t_4-2.D1 WHERE " Me.Filter " ORDER BY [項目A]" 同フォルダExcelに Private Sub cmdExp_Click() On Error GoTo Err_Hander Dim rs As DAO.Recordset Dim xlApp As [[Excel]].Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet Set rs = CurrentDb.QueryDefs("結果").OpenRecordset Set xlApp = CreateObject("Excel.Application") Set xlWb = xlApp.Workbooks.Open(CurrentProject.Path "\照合.xls") Set xlWs = xlWb.Worksheets("Sheet1") xlWs.Range("A2 J1000").Clear xlWs.Range("A2").CopyFromRecordset rs xlWs.Range("A2 J1000").Font.Size = 9 'サイズ xlWs.Range("A2 J1000").Font.ColorIndex = 43 '文字色 xlWs.Range("A2 J1000").Font.Bold = True '太字 xlWs.Range("A2 J1000").Interior.ColorIndex = 39 '背景色 xlWb.Save xlWb.Close Set xlWs = Nothing Set xlWb = Nothing Set xlApp = Nothing Set rs = Nothing MsgBox "完了しました。" Chr(13) "「照合.xls」をご確認ください。" Else Exit Sub End If [[Err]]_Hander If Err.Number = 1004 Then MsgBox "「照合.xls」が開いています。" Chr(13) "閉じてください。" End If End Sub シート指定 Dim xlApp As Object Dim xlWb As Excel.Workbook MyPath = CurrentProject.Path "\TEST.xlsx" Kill MyPath 'exp前にExcel削除 DoCmd.TransferSpreadsheet acExport, 10, "AAA", MyPath, True '10 → [[2007]].xlsx 'Excel設定 Set xlApp = CreateObject("excel.application") Set xlWb = xlApp.Workbooks.Open(FileName =MyPath) xlApp.DisplayAlerts = False '並替 xlWb.Worksheets("AAA").Activate xlWb.Worksheets("AAA").Range("A S").Sort Key1 =Range("A2"), order1 =xlAscending, _ Key2 =Range("C2"), order2 =xlAscending, Header =xlYes '設定 xlWb.Worksheets("AAA").Columns(1).Delete '1列目削除 xlWb.Worksheets("AAA").Cells.WrapText = False '折り返し無効 xlWb.Worksheets("AAA").Cells.EntireColumn.AutoFit '例全体のセル幅調整 xlWb.Worksheets("AAA").Cells.HorizontalAlignment = xlCenter '文字の配置 xlWb.Worksheets("AAA").Rows(1).Interior.ColorIndex = 11 '背景色 xlWb.Worksheets("AAA").Rows(1).Font.ColorIndex = 2 '文字色 '1列目/同一値の結合 'With xlWb.ActiveSheet With xlWb.Worksheets("AAA") i = 2 j = i + 1 Do While .Cells(j, 1).Value "" If .Cells(i, 1).Value = .Cells(j, 1).Value Then .Range(.Cells(i, 1), .Cells(j, 1)).MergeCells = True .Range(.Cells(i, 1), .Cells(j, 1)).HorizontalAlignment = xlCenter .Range(.Cells(i, 1), .Cells(j, 1)).VerticalAlignment = xlCenter j = j + 1 Else i = j j = j + 1 End If Loop End With xlWb.ActiveSheet.SaveAs MyPath, , , , , False 'バックアップ.xlkを作成しない xlWb.Close SaveChanges =True xlApp.Quit xlApp.DisplayAlerts = True Set xlWb = Nothing Set xlApp = Nothing
https://w.atwiki.jp/aochdbc/pages/103.html
Excellent hills Pettan vs trnjs マップ：アリーナ 日時：2017/1/9 22 00 ゲーム時間：46 49 勝利チーム：Excellent hills Pettan チーム名 プレイヤー名 文明 文明 プレイヤー名 チーム名 Excellent hills Pettan○ arata single trnjs× moma February yosimi ds199 リプレイ解析 解析結果
https://w.atwiki.jp/wasururu/pages/12.html
文字列内のスペースを削除 11 57 スペースを "" に置き換えればスペースの削除が出来ます。 下記コードはシート1のセルA1 B5のスペースを削除しています。 Sub Test() Worksheets("Sheet1").Range("A1 B5").Replace What =" ", Replacement ="", Matchbyte =False End Sub ※Matchbyte =False とすれば全角・半角とも削除します。 出展：http //hinekure.vba-soft.com/?eid=253853